home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00071_BuscaGenerico.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  1.0 KB  |  45 lines
  1. property spr, mem
  2. property sprPalavras -- Sprite que contem lista de palavras
  3. property ultimoValor
  4.  
  5. on getBehaviorDescription
  6.   return "Automaticamente atualiza lista de palavras"
  7. end
  8.  
  9. on getPropertyDescriptionList
  10.   set p_list = [ ┬¼
  11.     #sprPalavras: [ #comment:  "Sprite que contera lista de palavras", ┬¼
  12.                     #format:   #integer, ┬¼
  13.                    #default:    0 ] ┬¼
  14.   ]
  15.   return p_list
  16. end
  17.  
  18. on beginSprite me
  19.   set spr = the spriteNum of me
  20.   set mem = the member of sprite spr 
  21.   zera me
  22. end
  23.  
  24. on zera me
  25.   set the text of field mem to ""
  26.   set the ultimoValor of me to ""
  27.   sendSprite(the sprPalavras of me, #zera)
  28. end
  29.  
  30. on preenche me, palavra
  31.   set the text of member mem to palavra
  32.   set the ultimoValor of me to palavra
  33.   sendSprite(the sprPalavras of me, #preenche, palavra)
  34. end
  35.  
  36. on idleSprite me
  37.   if not (the visibility of sprite spr) then return
  38.   
  39.   put the text of member mem into pal
  40.   if pal <> ultimoValor then
  41.     set ultimoValor = pal
  42.     sendSprite(sprPalavras, #preenche, pal)
  43.     stopEvent
  44.   end if
  45. end